1 REM ***************************
2 REM * 2 MHZ IRQ-ROUNTINE FUER *
3 REM *   C-128 IM C-64 MODUS   *
4 REM ***************************
5 :
6 :
7 :
1000 DATA  78,A2,25,A0,**,8E,14,03
1010 DATA  8C,15,03,A9,81,8D,1A,D0
1020 DATA  A9,30,85,F7,8D,12,D0,A9
1030 DATA  62,85,F8,AD,11,D0,29,7F
1040 DATA  8D,11,D0,58,60,AD,19,D0
1050 DATA  8D,19,D0,10,34,AD,12,D0
1060 DATA  C5,F7,D0,18,A9,00,8D,30
1070 DATA  D0,AD,11,D0,29,7F,8D,11
1080 DATA  D0,A5,F7,18,65,F8,8D,12
1090 DATA  D0,4C,81,EA,A9,01,8D,30
1100 DATA  D0,AD,11,D0,29,7F,8D,11
1110 DATA  D0,A5,F7,8D,12,D0,4C,81
1120 DATA  EA,A5,CB,C6,F9,D0,53,A0
1130 DATA  02,84,F9,C9,04,F0,3B,C9
1140 DATA  05,F0,29,C9,06,F0,12,C9
1150 DATA  03,D0,0B,A5,F8,C9,09,90
1160 DATA  05,38,E9,08,85,F8,4C,BA
1170 DATA  **,A5,F8,18,65,F7,C9,FA
1180 DATA  B0,07,A5,F8,18,69,08,85
1190 DATA  F8,4C,BA,**,A5,F7,C9,38
1200 DATA  90,05,38,E9,08,85,F7,4C
1210 DATA  BA,**,A5,F7,18,65,F8,C9
1220 DATA  F8,B0,07,A5,F7,18,69,08
1230 DATA  85,F7,AD,0D,DC,58,4C,31
1240 DATA  EA,78,A2,31,A0,EA,8C,15
1250 DATA  03,8E,14,03,A9,00,8D,30
1260 DATA  D0,8D,1A,D0,58,60,END
9998 :
9999 :
10000 INPUT"STARTADRESSE ";SA
10010 PRINT"[145]ABSPEICHERN (J/N)?    ":GETX$:IF X$=""THEN 10010
10015 PRINTX$
10020 SA=INT(SA/256)*256
10030 XX=SA/256
10040 RESTORE:POKE53296,1
10050 READ A$
10055 IF A$="**" THEN A=XX:GOTO10100
10057 IF A$="END" THEN10120
10060 AH=ASC(LEFT$(A$,1)):AL=ASC(RIGHT$(A$,1))
10070 IF AH>57 THEN AH=AH-7
10080 IF AL>57 THEN AL=AL-7
10090 A=(AH-48)*16+(AL-48)
10100 POKE SA+X,A
10110 X=X+1:GOTO10050
10120 POKE53296,0:PRINT"[147]  EINSCHALTEN: SYS"SA
10130 PRINT"  AUSSCHALTEN: SYS"SA+193""
10140 IF X$<>"J" THEN END
10150 SYS57812"2MHZ-IRQ"+STR$(SA),8,1
10160 POKE250,0
10170 POKE251,SA/256
10180 POKE780,250
10190 POKE781,215
10200 POKE782,SA/256
10210 SYS65496
10220 OPEN1,8,15:INPUT#1,ER,ER$:CLOSE1
10230 PRINTER;ER$""
10240 IF ER=0 THEN END
10250 PRINT"[145]NOCHMAL VERSUCHEN (J/N)?    ":GETX$:IF X$=""THEN 10250
10260 PRINTX$:GOTO 10140